	// New (Oct 16) - BL Version of EL variables

		* ASB
		foreach v in drugssellever_b steals_b disputes_all_b asbhostil_b {
			qui sum `v',d
			gen Z_`v' = (`v' - r(mean))/r(sd)
		}
		*egen bl_asb_b = rowtotal(Z_*)
		egen bl_asb_b = rowmean(Z_*)
		*la var bl_asb_b "Baseline version of endline ASB"
		la var bl_asb_b "Baseline version of endline ASB - mean"
		drop Z_*

		* ECON
		foreach v in profitsump99avg7d_b wealth_indexstd_b homeless_b savstockp99_b total7da_zero_b {
			qui sum `v',d
			gen Z_`v' = (`v' - r(mean))/r(sd)
		}
		foreach v in homeless_b {
			replace Z_`v' = -Z_`v'
		}
		egen bl_econ_b = rowmean(Z_*)
		la var bl_econ_b "Baseline version of endline econ"
		drop Z_*

		* TP
		foreach v in patient_game_real_b incon_game_resc_b risk_game_resc_b timedecl_b riskdecl_b {
			qui sum `v', d
			gen Z_`v' = (`v' - r(mean))/r(sd)
		}
		foreach v in timedecl_b patient_game_real_b {
			replace Z_`v' = - Z_`v'
		}
		egen bl_tp_b = rowmean(Z_*)
		la var bl_tp_b "Baseline version of endline TP"
		drop Z_*

		* SC
		foreach v  in conscientious_b  grit_b rewardresp_b impulsive_b  {
			qui sum `v',d
			gen Z_`v' = (`v' - r(mean))/r(sd)
		}
		foreach v in rewardresp_b impulsive_b  {
			replace Z_`v' = - Z_`v'
		}
		egen bl_sc_b = rowmean(Z_*)
		la var bl_sc_b "Baseline version of endline SC"
		drop Z_*

		* MENTAL HEALTH
		foreach v in depression_b distress_b {
			qui sum `v',d
			gen Z_`v' = (`v' - r(mean))/r(sd)
		}
		egen bl_mh_b = rowmean(Z_*)
		la var bl_mh_b "Baseline version of endline MH"
		drop Z_*

		* SUBABUSE
		foreach v in drinkboozeever_b grassever_b harddrugsever_b {
			qui sum `v',d
			gen Z_`v' = (`v' - r(mean))/r(sd)
		}
		egen bl_sa_b = rowmean(Z_*)
		la var bl_sa_b "Baseline version of endline SA"
		drop Z_*

	drop g12a_e-g12k_e

    qui sum bl_asb_b if round==1, d
     gen d_q123_bl_asb = bl_asb_b < r(p75) if !missing(bl_asb_b)
       label variable d_q123_bl_asb "Low Initial ASB"

    qui sum bl_asb_b if round==1, d
     gen d_bm_bl_asb = bl_asb_b < r(p50) if !missing(bl_asb_b)
       label variable d_bm_bl_asb "Below median of baseline ASB"


   astile q_bl_asb =   bl_asb_b, nquantiles(4)

    gen int_asb_c_tpassonly    = tpassonly   * bl_asb_b
    gen int_asb_c_cashassonly  = cashassonly * bl_asb_b
    gen int_asb_c_tpcashass    = tpcashass   * bl_asb_b

      label variable int_asb_c_tpassonly   "Therapy Only $\times$ Baseline ASB"
      label variable int_asb_c_cashassonly "Cash Only    $\times$ Baseline ASB"
      label variable int_asb_c_tpcashass   "Therapy + Cash $\times$ Baseline ASB"


    gen int_asb_q123_tpassonly    = tpassonly   * d_q123_bl_asb
    gen int_asb_q123_cashassonly  = cashassonly * d_q123_bl_asb
    gen int_asb_q123_tpcashass    = tpcashass   * d_q123_bl_asb

      label variable int_asb_q123_tpassonly   "Therapy Only $\times$ Low Initial ASB"
      label variable int_asb_q123_cashassonly "Cash Only    $\times$ Low Initial ASB"
      label variable int_asb_q123_tpcashass   "Therapy + Cash $\times$ Low Initial ASB"


    gen int_asb_bm_tpassonly    = tpassonly   * d_bm_bl_asb
    gen int_asb_bm_cashassonly  = cashassonly * d_bm_bl_asb
    gen int_asb_bm_tpcashass    = tpcashass   * d_bm_bl_asb

      label variable int_asb_bm_tpassonly   "Therapy Only $\times$ Below median baseline ASB"
      label variable int_asb_bm_cashassonly "Cash Only    $\times$ Below median baseline ASB"
      label variable int_asb_bm_tpcashass   "Therapy + Cash $\times$ Below median baseline ASB"



    gen int_tp_c_tpassonly    = tpassonly   * bl_tp_b
    gen int_tp_c_cashassonly  = cashassonly * bl_tp_b
    gen int_tp_c_tpcashass    = tpcashass   * bl_tp_b


      label variable int_tp_c_tpassonly   "Therapy Only $\times$ Baseline TP"
      label variable int_tp_c_cashassonly "Cash Only    $\times$ Baseline TP"
      label variable int_tp_c_tpcashass   "Therapy + Cash $\times$ Baseline TP"





	// a. INTERACTION TERMS
			foreach x in peerquality_b peerqualitydum_b {
				qui gen tpassonly_`x' = `x'*tpassonly
				qui gen cashassonly_`x' = `x'*cashassonly
				qui gen tpcashass_`x' = `x'*tpcashass
			}
